10 REM SCHOENSCHRIFT ============64 20 REM (P) COMMODORE WELT = 30 REM ============================ 40 REM (C) BY = 50 REM ANDY KORZENDORFER = 60 REM = 70 REM VERSION 1.0 40Z/ASCII = 80 REM C-64 + MPS801/803 (DRUCKER)= 90 REM ============================ 95 REM LISTING MIT SCHOENSCHRIFT 97 REM AUF DEM MPS-803 GEDRUCKT 100 POKE53280,0:POKE53281,0:PRINTCHR$(147);CHR$(30):SA=2 110 PRINTCHR$(17);" SCHOENSCHRIFT FUER DEN MPS-801/803" 120 PRINTCHR$(17);" BITTE 30 SEC. WARTEN." 130 POKE828,0:IFSA=1THENPOKE828,1:POKE829,PEEK(55):POKE830,PEEK(56):GOTO150 140 IFSA<5THEN170 150 SA=PEEK(56)-7:IFPEEK(55)>0THENSA=SA-1 160 POKE56,SA:POKE55,0:CLR:SA=PEEK(56):GOTO200 170 IFSA=2THENSA=192 180 IFSA=3THENSA=4 190 IFSA=4THENSA=160 200 SR=SA:IFPEEK(828)THENSR=208 210 SD=SA*256:P=0 220 READX:P=P+X:IFX=-1THEN290 230 IFX<300THEN280 240 IFX<600THENX=X-492+SR:GOTO280 250 IFPEEK(828)=0THENX=PEEK(X):GOTO280 260 IFX=806THENX=89 270 IFX=807THENX=3 280 POKESD,X:SD=SD+1:GOTO220 290 IFP<>187274THENPRINT" DATA-FEHLER IN BLOCK 1 !":END 300 SD=SA*256+1024:FORX=SDTOSD+426:POKEX,0:NEXTX 310 SD=SA*256+1535:P=0 320 READX:P=P+X:IFX=-1THEN350 330 POKESD,X:SD=SD+1:GOTO320 340 IFP<>26405THENPRINT" DATA-FEHLER IN BLOCK 2 !":END 350 POKESD+1655,60:POKED+447,62:POKESD+761,62:POKESD+1616,62 360 POKESD+1656,91:POKESD+443,93:POKESD+767,93 370 POKESD+1657,64:POKESD+449,42:POKESD+773,42:POKESD+1539,92:POKESD+1652,92 380 IFPEEK(828)THEN420 390 PRINTCHR$(17);" AN:POKE806,112:POKE807,";SA+3 400 PRINTCHR$(17);" AUS:POKE806,";PEEK(806);":POKE807,";PEEK(807);"." 410 POKE806,112:POKE807,SA+3:GOTO510 420 SD=832:P=0 430 READX:P=P+X:IFX=-1THEN450 440 POKESD,X:SD=SD+1:GOTO430 450 IFP<>10030THENPRINT" DATA-FEHLER IN BLOCK 3 !":END 460 SYS887:POKE55,PEEK(829):POKE56,PEEK(830):CLR 470 PRINTCHR$(17);" AN:POKE806,64 :POKE807,3" 480 PRINTCHR$(17);" AUS:POKE806,";PEEK(806);":POKE807,";PEEK(807) 490 POKE861,PEEK(806):POKE852,PEEK(807) 500 POKE806,64:POKE807,3 510 PRINTCHR$(17);" DRUCKERROUTINE GESCHALTET !" 520 REM DATA BLOCK 1 530 DATA142,161,496,140,162,496,141,160,496,201,13,208,10,72,169,0,141,166 540 DATA496,104,76,210,492,201,10,240,242,72,173,165,496,208,36,104,201,14 550 DATA208,5,141,164,496,24,96,201,15,240,247,201,18,208,5,141,166,496,24 560 DATA96,201,146,208,10,72,169,0,141,166,496,104,24,96,104,24,201,32,144 570 DATA9,24,201,160,176,32,201,128,144,28,72,173,165,496,208,3,104,24,96,169 580 DATA18,141,166,496,104,9,64,32,139,492,169,0,141,166,496,76,199,492,201 590 DATA34,208,23,173,165,496,240,10,169,0,141,165,496,169,34,76,139,492,169 600 DATA162,234,234,234,141,165,496,72,173,164,496,201,14,208,17,72,173,163 610 DATA496,41,1,240,5,169,32,32,165,492,104,32,165,492,104,24,174,163,496 620 DATA224,80,144,12,72,32,210,492,104,234,172,162,496,174,163,496,157,0 630 DATA496,173,166,496,240,3,157,80,496,238,163,496,24,173,160,496,174,161 640 DATA496,172,162,496,96,169,0,141,167,469,141,168,496,141,170,496,169,0 650 DATA162,13,157,175,496,202,208,250,174,167,496,189,0,497,201,14,240,81 660 DATA162,9,221,254,497,240,6,202,208,248,76,21,493,138,10,10,10,141,8,493 670 DATA162,6,189,72,498,157,176,496,202,208,247,169,1,141,168,496,174,167 680 DATA496,189,1,497,162,9,221,254,497,240,6,202,208,248,76,118,493,138,10 690 DATA10,10,141,50,493,162,6,189,24,498,157,182,496,202,208,247,169,1,141 700 DATA168,496,76,118,493,189,1,497,162,9,221,254,497,240,6,202,208,248,76 710 DATA118,493,138,10,10,10,141,92,493,162,6,189,72,498,72,138,10,170,104 720 DATA157,175,496,157,176,496,72,138,74,170,104,202,208,234,169,1,141,168 730 DATA496,174,167,496,189,80,497,240,18,162,6,169,2,29,176,496,157,176,496 740 DATA202,208,245,169,1,141,168,496,174,167,496,189,81,497,240,18,162,6,169 750 DATA2,29,182,496,157,182,496,202,208,245,169,1,141,168,496,174,167,496 760 DATA189,0,496,201,14,240,113,32,186,493,76,197,493,201,93,208,2,169,62 770 DATA201,42,240,250,96,162,3,221,79,498,240,6,202,208,248,76,239,493,138 780 DATA10,10,10,24,105,80,141,223,493,162,6,189,88,498,29,176,496,157,176 790 DATA496,202,208,244,169,1,141,168,496,174,167,496,189,1,496,32,186,493 800 DATA162,3,221,79,498,240,6,202,208,248,76,103,494,138,10,10,10,24,105,80 810 DATA141,18,494,162,6,189,104,498,29,182,496,157,182,496,202,208,244,169 820 DATA1,141,168,496,76,103,494,189,1,496,32,186,493,162,3,221,79,498,240 830 DATA6,202,208,248,76,103,494,138,10,10,10,24,105,80,141,69,494,162,6,189 840 DATA104,498,72,138,10,170,104,72,29,175,496,157,175,496,104,29,176,496 850 DATA157,176,496,72,138,74,170,104,202,208,226,169,1,141,168,496,173,168 860 DATA496,208,27,238,170,496,238,167,496,238,167,496,173,167,496,201,80,176 870 DATA3,76,221,492,169,8,32,806,807,76,183,494,173,170,496,240,15,169,14 880 DATA32,806,807,169,32,32,806,807,206,170,496,208,248,169,8,32,806,807,162 890 DATA1,189,176,496,9,128,32,806,807,232,224,13,208,243,162,0,142,168,496 900 DATA76,111,494,169,0,141,167,496,169,13,32,806,807,173,169,496,32,806,807 910 DATA169,17,32,806,807,174,167,496,189,0,496,201,14,240,2,169,15,205,169 920 DATA496,240,6,141,169,496,32,806,807,201,14,208,4,238,167,496,232,189,0 930 DATA496,162,14,221,111,498,240,74,202,208,248,201,62,208,2,169,193,201 940 DATA93,208,2,169,207,201,42,208,2,169,213,32,806,807,238,167,496,24,173 950 DATA167,496,205,163,496,144,179,169,8,32,806,807,169,0,141,163,496,141 960 DATA167,496,162,160,189,255,495,157,255,496,169,0,157,255,495,202,208,242 970 DATA24,169,13,32,806,807,76,200,492,138,10,10,10,24,105,120,141,83,495 980 DATA169,8,32,806,807,162,1,138,72,189,232,498,32,806,807,174,169,496,224 990 DATA14,208,3,32,806,807,104,170,232,224,8,208,231,173,169,496,76,10,495 1000 DATA0,72,165,154,201,4,240,4,104,76,806,807,104,76,0,492,-1 1010 REM DATA BLOCK 2 1020 DATA71,74,80,81,92,44,59,162,89,0,128,132,132,132,131,128,0,0,128,130,132 1030 DATA131,128,128,0,0,135,128,128,128,128,128,0,0,128,128,128,128,135,128 1040 DATA0,0,135,128,128,128,128,128,0,0,128,130,129,128,128,128,0,0,128,130 1050 DATA129,128,128,128,0,0,128,128,131,128,131,128,0,0,128,132,132,131,128 1060 DATA128,0,62,39,34,0,0,0,0,0,0,128,160,128,160,128,128,0,0,128,128,192 1070 DATA160,128,128,0,0,128,224,128,224,128,128,0,71,74,80,81,92,44,59,60,91 1080 DATA64,39,162,34,89,0,0,0,184,196,196,168,252,128,0,0,128,128,128,253,128 1090 DATA128,0,0,252,168,196,196,184,128,0,0,184,196,196,168,252,128,0,0,254 1100 DATA201,201,182,128,128,0,0,128,128,192,128,128,128,0,0,128,128,208,128 1110 DATA128,128,0,0,160,213,212,189,192,128,0,0,184,197,196,197,184,128,0,0 1120 DATA189,192,192,189,192,128,0,0,128,129,128,128,128,128,0,0,128,128,192 1130 DATA128,192,128,0,0,128,129,128,129,128,128,0,0,188,192,160,252,128,128 1140 DATA0,66,65,82,78,73,77,32,32,75,79,69,78,73,71,56,53,-1 1150 REM DATA BLOCK 3 1160 DATA72,165,154,201,4,240,8,104,108,93,3,234,234,234,234,104,32,98,3,32 1170 DATA0,208,76,111,3,32,111,3,32,202,241,76,98,3,72,165,1,141,113,3,41,252 1180 DATA120,133,1,104,96,72,169,55,133,1,104,88,96,32,98,3,165,56,234,141,132 1190 DATA3,162,0,189,0,128,157,0,208,232,208,247,173,135,3,201,214,240,9,238,132 1200 DATA3,238,135,3,76,130,3,76,111,3,-1